﻿Public Class BEevento

#Region "Declaración de variables"

    Private codEvento As Integer
    Private codTipoEvento As Integer
    Private codProtocolo As Integer
    Private codMuestra As Integer
    Private codPaciente As Integer
    Private codEstado As Integer
    Private descripcion As String
    Private horaInicio As Date
    Private horaFin As Date
    Private fechaInicio As Date
    Private fechaFin As Date

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodEvento As Object, _
            ByVal pCodTipoEvento As Object, _
            ByVal pCodProtocolo As Object, _
            ByVal pCodMuestra As Object, _
            ByVal pCodPaciente As Object, _
            ByVal pCodEstado As Object, _
            ByVal pDescripcion As Object, _
            ByVal pHoraInicio As Object, _
            ByVal pHoraFin As Object, _
            ByVal pFechaInicio As Object, _
            ByVal pFechaFin As Object)

        Me._codEvento = pCodEvento
        Me._codTipoEvento = pCodTipoEvento
        Me._codProtocolo = pCodProtocolo
        Me._codMuestra = pCodMuestra
        Me._codPaciente = pCodPaciente
        Me._codEstado = pCodEstado
        Me._descripcion = pDescripcion
        Me._horaInicio = pHoraInicio
        Me._horaFin = pHoraFin
        Me._fechaInicio = pFechaInicio
        Me._fechaFin = pFechaFin
    End Sub

    Public Property _codEvento() As Integer
        Get
            Return Me.codEvento
        End Get
        Set(ByVal value As Integer)
            Me.codEvento = value
        End Set
    End Property

    Public Property _codTipoEvento() As Integer
        Get
            Return Me.codTipoEvento
        End Get
        Set(ByVal value As Integer)
            Me.codTipoEvento = value
        End Set
    End Property

    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _codMuestra() As Integer
        Get
            Return Me.codMuestra
        End Get
        Set(ByVal value As Integer)
            Me.codMuestra = value
        End Set
    End Property

    Public Property _codPaciente() As Integer
        Get
            Return Me.codPaciente
        End Get
        Set(ByVal value As Integer)
            Me.codPaciente = value
        End Set
    End Property

    Public Property _codEstado() As Integer
        Get
            Return Me.codEstado
        End Get
        Set(ByVal value As Integer)
            Me.codEstado = value
        End Set
    End Property

    Public Property _descripcion() As String
        Get
            Return Me.descripcion
        End Get
        Set(ByVal value As String)
            Me.descripcion = value
        End Set
    End Property

    Public Property _horaInicio() As Date
        Get
            Return Me.horaInicio
        End Get
        Set(ByVal value As Date)
            Me.horaInicio = value
        End Set
    End Property

    Public Property _horaFin() As Date
        Get
            Return Me.horaFin
        End Get
        Set(ByVal value As Date)
            Me.horaFin = value
        End Set
    End Property

    Public Property _fechaInicio() As Date
        Get
            Return Me.fechaInicio
        End Get
        Set(ByVal value As Date)
            Me.fechaInicio = value
        End Set
    End Property

    Public Property _fechaFin() As Date
        Get
            Return Me.fechaFin
        End Get
        Set(ByVal value As Date)
            Me.fechaFin = value
        End Set
    End Property


End Class
